unit test;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UAddPerson, Vcl.StdCtrls, Vcl.ExtCtrls,
  Vcl.DBCtrls, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
  dxSkinXmas2008Blue, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, cxGroupBox, cxRadioGroup, cxDBEdit, UDMPerson,
  RzPanel, RzRadGrp, RzDBRGrp, Vcl.Mask, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxCalendar, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
  cxStyles, cxInplaceContainer, cxVGrid, Data.DB, MemDS, DBAccess, Uni, UDMConnection,
  Vcl.ComCtrls, RzListVw, Vcl.Grids, cxCheckListBox, cxDBCheckListBox,
  Vcl.CheckLst, Vcl.ImgList, dxSkinscxPCPainter, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxNavigator, cxDBData, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, frxClass,
  frxDBSet, cxGridChartView, cxGridDBChartView, UDMSettings, Vcl.Buttons,
  AdvMetroScrollBox, AdvScrollBox, ToolPanels, Vcl.CategoryButtons,
  Vcl.ButtonGroup, RzCommon, RzDBEdit, cxMemo, cxRichEdit, cxDBRichEdit,
  AdvCodeList, LMDBaseControl, LMDBaseGraphicControl, LMDTextCustomLabel,
  LMDTextDBViewLabel, LMDRTFRichEdit, LMDRTFFontComboBox, LMDRTFBase,
  Vcl.ToolWin, LMDRTFActions, System.Actions, Vcl.ActnList, Vcl.ActnMan,
  Vcl.ActnCtrls, Vcl.PlatformDefaultStyleActnCtrls;

type
  TFTest = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure cxCheckListBox1EditValueChanged(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FTest: TFTest;

implementation

{$R *.dfm}

procedure TFTest.cxCheckListBox1EditValueChanged(Sender: TObject);
begin
//ShowMessage(inttostr(self.cxCheckListBox1.Items[self.cxCheckListBox1.ItemIndex].Tag));
end;

procedure TFTest.FormCreate(Sender: TObject);
//const
//  RowCount = 16;
//  ColCount = 3;
//  ColMargin = 150;
//  ColSpacing = 200;
//  RowMargin = 35;
//  RowSpacing = 20;
//var
//  ChkBoxArray : array[0..ColCount - 1, 0..RowCount - 1] of TCheckBox;
//  var  i, j : integer;
begin
//  for i := 0 to ColCount - 1 do
//    for j := 0 to RowCount - 1 do begin
//      ChkBoxArray[i, j] := TCheckBox.Create(Self);
//      with ChkBoxArray[i, j] do begin
//        Parent := Panel1;
//        Caption := '(ssssssssssssssss)';
//        Name := 'checkbox'+inttostr(i)+inttostr(j);
//        Left := i * ColSpacing + ColMargin;
//        Top := j * RowSpacing + RowMargin;
//      end; {with ChkBox[i, j]}
//    end; {for j := 0 to RowCount - 1}
//  {end; for i := 0 to ColCount - 1}
//  with Panel1 do begin
//    Width := ColMargin + ((ColCount - 1) * ColSpacing) + ChkBoxArray[0,
//0].Width + ColMargin;
//    Height := RowMargin + ((RowCount - 1) * RowSpacing) + ChkBoxArray[0,
//0].Height + RowMargin;
//  end;
//
//
//

end;
end.
